home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
MISCELLA
/
SPLINE10.ZIP
/
GLOBAL.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-12-27
|
794b
|
34 lines
'Copyright (C) Andrew S. Dean 1993
Option Explicit
Global ControlPoly(1000) As xyzTD
Global Curve(1000) As xyzTD
Global glNumControlPoints As Long
Global glCurveResolution As Long
Global gfTension As Single
Global gfBias As Single
' Stuff from \VB\CONSTANT.TXT
Global Const KEY_ESCAPE = &H1B
Global Const MODAL = 1
' Check Value
Global Const UNCHECKED = 0 ' 0 - Unchecked
Global Const CHECKED = 1 ' 1 - Checked
Global Const GRAYED = 2 ' 2 - Grayed
'Color Dialog Flags
Global Const CC_RGBINIT = &H1&
Global Const CC_FULLOPEN = &H2&
Global Const CC_PREVENTFULLOPEN = &H4&
Global Const CC_SHOWHELP = &H8&
' Button parameter masks
Global Const LEFT_BUTTON = 1
Global Const RIGHT_BUTTON = 2
Global Const MIDDLE_BUTTON = 4